LABEL OOOO000000LINE 00176349CC EX O/RSCOMMONSISFILE SeCANDE/PATCHESS END] 
FILE® CANDE/PATCHES TUESDAY 12/14/76 06815 PM 


$@ LIST MERGE 

$@ LOCAL ZIPARRAY 

$. 44 PATCHES FOR CANDE,XVI.0.5.28 

$*¥COMPILE CANDELO/TSHARER WITH XALGUL FOR LIBRARY. CDAVE) 


$*ALGOL FILE LINE®15111S6/CANDE BACK UP DISK, 
S$*ALGOL STACK*1023, 

S*ALGOL PROCESS=151003ALGOL 10215200. 

$*ALGOL CORE=16500, 

$*PROCESS#112003003 105112008003 CORE=6000.- 
$*DATA CARD. 

$ 

$ SET TAPE CHECK SINGLE SEQERR COMMS 

$ SET LIST BEND FORMAT PRT RESET LISTP 

$ RESET LIST BEND PRT FORMAT SET LISTP 


$ SET XREF 
mz. 
$# PATCH NUMBER 105 FOR CANDEeXV10e0 CONTAINS 4 CARDS. 
IF T = 0 THEN a CBASEJ ¢ "1 ELSE 59001800 
(CF ¢ IF A CBASEJ < 0 THEN O ELSE A [BASE]) & 59004400 
FILETYPE €3284230) & UNLOCKTOGGLE (31+4731))3 59004450 


2 IF A re 3-0 LHEN WORK B31,C2ri0) « A CBASE}3 39010700 
$ F FCA 120 


# 
$: THIS PATCH CORRECTS PATCH NUMBER 3 OF MARK XVI CANDE, PRIOR TO THIS 
$1 PATCHs THE SAVE*FACTOR OF THE SOURCE AND OBVECT FILES WERE ZERQED IF 
$1 TWO *SAVE""S WERE DONE FOR A FILE WITH NO INTERVENING UPDATESs 


__ 


$1 
$1 Ries WILLMSs 23FEB76., 
$# e e s e 
MATCH CWORDs"LIBRARY") LIB t= TRUE ELSE 56007650 
$: THIS PATCH ALLOWS THE WORD "LIBRARY" IN THE LIST VERB (AS PER MANUAL)» 
: $1! 
p $1 DeGe WILLMSs IMAR7 6,4 _ Be 
: # PATCH NUMBER 4 DEexXVI.0 CONTAINS 2 CARDS, 
P DS te 7 CHR; 00069800 
TALLY ** 123 00069900 


$t THIS PATCH CREATES A 7 CHARACTER HEADING FOR THE LIST VERBe THE VERB 
$i ALLOWS 7 CHARACTER NAMESs BUT ONLY LISTS THE FIRST 6 IN THE HEADINGs 
$3 
W MSe 9MAR76 

$# PATCH NUMBER 402 FOR CANDE«xXVI.0 CONTAINS 14 CARO, 

IF CSEQ*SEVENTS £€3]) = = USERCODE THEN A (CBASE+334203 44006600 
$: THIS PATCH UPDATES Q=MARK STATUS. 
$3 
$$ THIS PATCH CORRECTS THE RESULTS OF A Q=MARK STATUS REQUEST DONE 
$$ WHILE A COMPILATION 1S BEING DONEs IF THE COMPILER 1S NOT IN CORE, 
$1 THE SEQUENCE BEING COMPILED IS NOT KNOWN, THIS PATCH CAUSES CANDE TO 
$: SUPPRESS “AT SEQ GIBBERISH" JF THE SEQUENCE NUMBER IS NOT KNOWNe 


$3 

$ LJUN76 

$# PATCH NUMBER 403 FOR CANDEeXVIe9 CONTAINS 1 CARD caer 
GOODOBI: =F AL SES 62910350 


: 


oe a ae ae 


BROCK UNIV. 


S¥ALGOL FILE TAPEsSyMBOL/CANDE TAPE« See. . a oS 
S*ALGOL FILE LINE™15111S6/CANDE BACK UP TAPE, . PAT CHES TO CANDE 


MARK 16.9 
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$t THIS PATCH UPDATES CHANGE TYPE. 
$3 IF A USER CHANGES THE TYPE QF HIS WORKFILEs HE WILL NO LONGER HAVE 
$1 A VALIO OBJECT VERSION OF HIS WORKFILE, 


$3 
St DeGeWILELMS» 11 AUG76 
SE PATCH NUMBER 404 FOR CANDEeXVIe0 CONTAINS S CARDS, 
MATCH CVERBTABLE CA (51.(939]],COM42] "TYPE ") 00201010 
BEGIN WHICH®=13 GQ GETYPE END» 00201020 ere Sod bi Se ete 
$ VOIDT 67000000 65900000 
CALL CNOTUSED)? & 65 = WAS "TYPE" 90316000 
WATYPE ", 3°%3000400000000076"%», & #62 ALSO 90386000 ad x beige Arapelideese tens Oceans 


$3 THIS PATCH CHANGES CHANGE TYPE. 
$1 VERB "TYPE" NOW GOES THROUGH "CHANGE", 
$1 THIS IS DONE TO 1) REDUCE SIMILAR CODE, 5 ea nasglet ae os sAuiee dashed 


$1 2) ALLOW ABBREVIATIONS IN TYPE CAS PER MANUAL), 
$$ PRIOR TO THIS CHANGEs CANDE WOULD BE UPSET AT THINGS LIKE TYPE 3 Xe 
$1 ae eo 
$1 0 3 
$# PATCH ree a, 405 FOR CANDEeXVI.O CONTAIN le * 
ENAMESO ae GOERR ("NO FILE"s 123 32902650 ee 
[LAIR PET ae east PVC 
LABEL EXIT: 75000350 si eal 
IF FILENAME=Q THEN GOERR ("NO FILE"%s1) ELSE % CASE 0 75000550 
EXIts 75002550 


$} THIS PATCH CORRECTS DELETE» PUNCH ANO UPDATE VERBSs as _ Weta, hithomisipleareianes ee 
$: PRIOR TO THIS PATCH» NONE OF THE VERBS CHECKED TO SEE IF THERE WAS A 
$t VALID WORKFILE. 

$s THIS CAUSED "DELETE" TO GENERATE A SQURCE FILE ON DISKe 


$3 “PUNCH” TQ FIRE UP PUNCH/CANDE WHICH WOULD GET DS*ED ON 

$1 A NO FILE ERROR, | , 

$3 “UPDATE” TO RESPOND WITH “#" EVEN THOUGH THERE WAS NO WORKFILEs a, me PACE he ae eccrine aka) te eee Deh tay, Sie Oo fo 

$1 

$1 DeGeWILLMS»13AUG76. BROCK us PATO os a 

$# PATCH NUMBER ANDE sXVI.2O CONTAINS 3 CARDS. Ma sty ° Dea Be Se tee dn Oe Ne es ee 
GO EXIT; 58060000 

% VOID A CARD 58063000 

$ VOIDT 58067000 58065000 : oe <2 Gate, of arta os ln sw Mit 


$t THIS PATCH CORRECTS LOADIT. 

$1 PRIOR TO THIS PATCH» IF LOADIT FOUND THE FILES NOT OK CIE» FILESOK # 
$1 FALSE) IT WOULD SET WANT#VSETUPFILESs UNFORTUNATELY IT OID NOT EXIT s colasncn hace. Quaielane pnt ekgctcheeca a oAe A ss Gaerne Ratan ene eck 
$1 IN ORDER TO SET UP THE FILES. INSTEAD IT FELL DIRECTLY INTO THE 

$1 DISPATCH OF LOAD/CANDE. AFTER LOAD/CANDE EQue LOADIT WOULD ISSUE 

$t A CANCELCKPT WHICH WOULD PRQOUCE SERIOUS ERRORS (SEGMENT ZERQ OVERWRITESETC)¢ | 


$3 
$# PATCH N ) Jee XVEeO CONTAINS 3 CARDS» ' cars wilh ae Paradeeetiente tai Neb iaidad: ih Merdeside suite yee malate 
LABEL SUFFIXS 52007012 
IF LIBTOG THEN GO SUFFIX ELSE S"RESEQ" IS FILE*NAME 52009850 
SUFFIX . 32032650. Git A teen ate Blane 


$1 THIS PATCH UPDATES "COPYIT", 

$s PRIOR TO THIS PATCHes "RESEQ" COULD NOT BE USED AS A FILE*NAMEs 

$3 CIE. COPY SYMBOL/RESEQ WOULD RESULT IN COPYING SYMBOL/"USERCODE" WITH 
$t RESEQUENCING). 


sie TS Si a Fe ain aud gnc 


$# PATCH NUMBER 500 FOR CANDEeXVIe0 CONTAINS 4 CARDS, 
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IF 


HAvEMVPU T FILE 


2 de) aes 


ame a id CHAM E = \ a 


THEN GOERR [two FILE" 1) eae 4. 
ELSE WoAK (7 r= WoRKEIPT 2 FILEL AME [iz io levy, ne 


jut t BKOCK U, pateh YOS & CAADE 
RKP | Le ga UNITROMBER L926] 


452.025 640 
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THEN work 19) = WORK Q? yi ok ILNA m4 Liz G! | 3G] — ezor~s 70° 
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s gee 
IF DEVICE = TELETYPE OR DEVICE = TC500 THEN 01011450 
IF DEVICE = TELETYPE OR DEVICE = TC500 THEN 36001650 
IF DEVICE = TELETYPE OR DEVICE * TC500 THEN : 36002550 
IF OEVICE = TELETYPE OR DEVICE * TC500 THEN 36003450 


$3 THIS PATCH WILL PREVENT CANDE FROM SENDING BLACKOUT CHARACTERS TO 

$$ VIDEO TERMINALS (CIE. CONRAC QR BIDS) WHAT A WASTE OF TIME TO TRY TO 

$t BLACKOUT A CRT, 

$3 

$1 D,G. WILLEMS 

$s ATCH NUMBER 501 FOR CANDEeXVIe9 CONTAINS 63 CARDS. 

PEEP ECE RE SELES EEE EEE SECIS TEP SERRE SELES ERE REET TEER EES EERE E SE tlie wate) 


@ 
] 
] 
rd] 
e@ 

PROCEDURE FIXUSER (CNTRsAsEXIT»sBUMPCNTR)3 VALUE BUMPCNTRS 00054704 

@ INTEGER CNTR ARRAY A [O]3 00054706 

LABEL EXITS BOOLEAN BUMPCNTRS 00054708 

BEGIN 00054710 

® REAL WORD; 00054742 

INTEGER Ie IBYO*LENGTHS 00054744 

INTEGER STREAM PROCEDURE COUNTZERO CA)3 VALUE AS 00054716 

@ BEGIN 00054718 

SItSLOC Ad TALLY!20; 00054720 

8 CIF SC EQl "Oo" THEN BEGIN UPSS UPT ENO ELSE JUMP OUT)3 00054722 

e COUNTZEROtaTALLYS 00054724 

END OF COUNTZERO: 00054726. 

IF CWORDt2A CINC (CSREG)])eC1%5] EQL O THEN 00054728 

@ BEGIN 00054730 

WORD! =DECCONV CWORD)3 00054732 

IF LENGTH8#A CINC (SREG)J0(383) EQ@L O THEN 00054734 

rd] GOERR (WORDs8)3 00054736 

IF Tsag"COUNTZERQ ¢WORD) > 6 THEN 000534736 

GOERR CWORD28)3 00054740 

] IF I EQL O THEN Iteli 00054741 

IF LENGTHtsI+LeNGTH > 7 THEN 00054742 

GOERR (WORD+8)3 00054744 

& IBY6tsy x 63 00054746 

A CSREG]&#0 & WORD [6848=1HYOIBY6) & 00054748 

A CSREG) [6+] BY6203(7"1)x6] & LENGTH €314533)3 00054750 

rd] DECR CSREG)3 00054752 

t IF BUMPCNTR THEN 00054754 

INC CCNTR)3 00054756 

) END 00054758 

ELSE . 00054760 

DECR C(SREG)3 00054762 

@ END OF FIXUSERS 00054764 

ELSE IF WORD EQL."/" THEN 42002700 | 

IF SREG + 2 LEQ MAXSKEG THEN FIXUSERCI*AsEXIT# FALSE) ELSE42002710 

 ) ELSE 42002780 

GOERR (WORD,8)3 . 42002785 

LABEL NUMUSERS 52007015 

] NUMUSERS §2012305 

IF INPCOYNT + 2 LEQ NPARAMS THEN | 52012310 

FIXUSER CINPCOUNT? Av EXIT» TRUEDS §2012320 

@ GO To NUMUSERS §2015950 

LABEL NUMUSER} 56000450 

IF LIB t= (CHAR t= WORD CF) & "/" THEN 56004700 

@ NUMUSERI 56004705 

A IF J * 2 LEQ PC THEN FIXUSER Cle As EXIT»TRUE) ELSE 56004710 

° ELSE 56004790 
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MATCHCWORDe"LIBRARY") BEGIN LIBS=TRUEJGO NUMUSER END ELSE56007650 


LABEL LIBNAMES 57041500 . ae ee a SY Oe et lnecereteet 
LIBNAME? 57089500 
IF SREG + 2 LEQ MAXSREG THEN FIXUSER (TsAsEXITsFALSE)3 §7091100 

GO TO LIBNAME 57113000 Beachner 
$ VOIOT 57117000 57114000 
IF LIB ts WORDeCF = "/" THEN 72003805 

IF TOIT THEN GOERR CYND USER"s39) ELSE 72003810 : A eT, Se 
IF I + 2 LEQ PC THEN FIXUSER CI*AsEXIT»TRUE) ELSE 72003820 


ELSE 72003900 


GOERR CWORD*8)3 72003905 Fe Ore are? 
IF HAVEUSER THEN GO ERR ELSE 74009000 
BEGIN 74009005 
FROM! =TRUES 74009010 — 
IF I + 2 LEQ PC THEN FIXUSER (Io As EXIT» TRUEDS 74009020 
END 74009095 


$1! THIS PATCH ALLOWS USERCODES STARTING WITH DIGITS IN ALL THE 
$! CANDE VERBS WHICH ALLOW USERCODES» 

$1 

$1 D,G, WILLMS*26FEB76, oe tied Bue oy AaDnatemene ce eset 


$i P TTEN 26MAY76_@ 
#® PATCH NUMBER 502 FOR CANDEeXVI.0 CONTAINS 16 CARDS. 


SPECNAME = ACBASE+9] eLI7IOL) 4, * NO "0" IN MFIO 57019500 Re, Ib desis dae 
BOOLEAN OBJECTTOGGLE; 57943500 
ELSE MATCH CWORDs"OBVECT *) 57092100 


BEGIN 57092200 


MATCH (VERBWORDs EXECUTE") 537092300 
IF NAMEWORD [0] # 0 THEN ERROR (8) AMFID ALREADY GIVEN 57092400 
ELSE OBVECTTOGGLE t* TRUE 57092500 SEs . EM A ee ae en ee 
ELSE ERROR (8) 57992600 


END 57092700 : 
37106500 Bididp bs Cid cak Wiasedoel eset tate Gye cheese eer ae 


IF NOT QBYECTTOGGLE THEN 
IF OBJECTTOGGLE THEN §7126100 
IF NAMEWORD CO} = 0 THEN GOERR ("I NCOMPL'"s 6) 57126200 
ELSE SPECNAME $e 13 57426300 ithe 7 in gingebia snd eects 
FIND CLL&IAM (€33341%7)s051F SPECNAME = 1 THEN NAMEWORD [0) ELSE 57202000 
NAMEWORD [O].C6OS36],NAMEWORD C1),USERCODE); 57202500 


RUN) $= IF SPECNAME = 1 THEN NAMEWORD ([O] ELSE NAMEWORD [0),(6836]4 57228000 - xf Pjecotich pias Sohn oth. 
$1! THIS PATCH EXTENDS THE EXECUTE VERB SYNTAX. IF THE WORD “OQBVECT" 
$3 APPEARS BETWEEN EXECUTE AND MFID»s THEN THE MFID WILL NOT BE FUDGED 
$1 (IEe EXECUTED AS IS» NO "0" INSERTED IN MFID)s THUS MFID CAN BE 7 
$3 CHARACTERS IN LENGTH 


| 


$3 
$1056 NLA Se 265 E876 ¢ oe 
NUMBER 503 FOR CANDE XVI ONTAINS 32 CAROS. 
DEFINE SBASE = 81#3 % PROCEOURE STACK BASE 00015900 
DEFINE USERNAMEL = AC49) # SFIRST 7 CHRS OF USER NAME 00019640 a ee 
USERNAME2 = ALSO] #4 *LAST & CHRS OF USER NAME 00019642 


CRE SEC AS CSS SE POSES EES PO LCCC CSCC ECACC ELEC EEE ES EEE TERE SESE COLLAL © serelehee reine 


WORKC3]#*DECCONVC(LL)S WORKE3IS3WORK(3IJ& "LINE * [681833013 37001710 


STREAM PROCEDURE BLANK2 (AeN)# VALUE NI 00053100 Psi ctes 
BEGIN DIs@Ay NCDSH@LIT * "73 ENDS 00053200 
TWXOUTCLL »WORKCO]s24eCRLF)3 01008500 
IF DEVICE = TELETYPE OR DEVICE = TC500 THEN BLACKOUTS 010085500 
QUICKBYEBITta13 % QUICKBYE IF NOT LOGGED IN 01010100 
MOVE (2*sWORDS»WORK(4),USERNAME}) 3 % SAVE NAME 01014220 
MOVE (2»WORDS»USERNAMES »WORKE1I2$ BLANK2CWORKC1)91)93 37001700. | 
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BLANKCWORKE 3) )2 37001720 
TWXOUTCLL»WORK(LO)» 322 CRLF D3 37001800 

MOVE C2eWORDSsA CBASEJ* USERNAME) D3 39003150 

STREAM PROCEDURE FRM CFeTeUNeLL 23 VALUE LL §0000400 
SI ts UNS UPS3 50000600 

DS #* 15 CHR} §0000900 

DS $8 14 WHOS} 50001500 
STREAM PROCEDURE BZY CWeUN»LLIS VALUE LLS 50002100 
Sy tse UN} 50002400 

DS t# 15 CHR} 50002600 
BZY (WORK C20] *USERNAMEL*LL Ds 530003700 
TWXOUT CT»wORK [20]92421)3 50003800 

FRM (L»eWORKs USERNAME 4 eLL )3 §0005100 
MOVE C2eWORDS, USERNAME, WORK (17293 BLANK2CWORK(1J.1)3 534001700 

TWXOUTCLL»s WORKCO}s 24> CRLF D3 54001800 

STREAM PROCEOURE SETNAME (PLACE)3 90367702 
BEGIN 90367706 

DI $* PLACES DS 8" 16 LIT “OSITE OPERATOR "3 90367708 

END OF SETNAME} 90367710 
SETNAME CUSERNAME1)3 90367712 


$$ THIS PATCH REMOVES THE SENDER USERCODE FROM THE "SS" MESSAGE, ALSO 

$1 THE USERCODE WILL NOT BE RETURNED TO THE SENDER ON A "USER BUSY” RESPONSE. 

$3 THE USERCODE IS aLSO SUPPRESSED IN THE GOODBYE MESSAGES AND THE TIME MESSAGES 
$1 IN EACH CASEs THE USER"S NAME WILL BE INSERTED CUSER NAME 

$t STORED FROM USERS FILE WHEN USER LOGS IN), 

$1 CANDE WILL ALSO "BLACKOUT” THE LINE WHEN REQUESTING A USER CODEe THIS 

$: IS DONE SINCE THE REMOTE USERCODES ARE ALSO VALID FOR THE BATCH RUNS 

$: AND THE DCMCPe 


$! PROCEDURE BLANK2 ADDED TO CORRECT RESTRICTEDUSER PATCH (#509), 


W MS2 21 APR76 
$# PATCH NUMBER 504 FOR CANDEeXV1I20 CONTAINS 7 CAROSe Site 


DEFINE PRIVUCODESLINE CoO*»UCLOC) #3 00015750 
FIND CLL&IAM £33244%7]50e"NEWS "e"CANDE “»USERCQDE)3 01018900 

FIND (CLL&TAM (3384137]900A [(BASE*]]5A (BASE +2) e+PRIVUCODE D3 42003000 
WORDS*WORD.C6842)3 50006910 
MATCH CWORDs "SPO ") BEGIN LLI®05 SPOUT CLOWsA C¥),T)3 GO EXIT ENDS 50006920 
MATCH CWORDsLINE CLLeUCLOC)) 50007200 
USERCODEt=TIME (C#1)5 % GET USERCODE 90367740 


$1 THIS PATCH CAUSES CANDE TO USE THE PRIVs USERCODE INSTEAD OF "SITE"s 

$t THIS INSTALLATION USES THE DATA CUMM FACILITY OF THE FIRST USER IN REMOTE/ 
$1 USERS IS THE PRIV, USER. 

$1 THIS PATCH ALSO SEARCHES NEWS/CANUVE USING THE USERCODE OF THE USER THAT IS 
$1 BEING LOGGED IN, THIS WILL ALLOW FOR SELECTIVE NEWS/CANDE MESSAGESe 

$t WITHOUT THIS PATCH GANDE MAY ABORT ON *SSFILE" COMMANDS AND NEWS/CANOE 

$8 MAY NOT BE PICKED UP, 

$: LINE O USES THE PRIV USER AS ITS USERCODE INSTEAD OF "SPO", 

$1 CODE AUDED 6UUL76 To ALLOW "TO SPO" MESSAGES, 


OR CANDEeXVI.0 CONTAINS 141 CARDS, 


LABEL SPECCANDES 27000450 
WORK CO],C281) ta 43 % MARK AS CANDE uQB. 27002005 
MATCHCRUNIs"FIND  ") GO SPECCANDE ELSE 27002010 
MATCHCRUNI» "GUARD ") BEGIN WORKLQ)]e£2%1)%803 GO SPECCANDE END ELSE 27002020 

$ VorpT : 27003000 

SPECCANDE! 27003750 
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IF CONCISE THEN ELSE 27004600 
MATCH CRUN2s"CANDE ) ELSE 27004603 
MATCH CRUN2s"DISK ") ELSE 27004606 
RUNZIS"CANDE 3 67001100 
RUN2SS"CANDE "3 76030300 


$ THIS PATCH CHANGES THE NAME OF FIND/DISK ANDO GUARD/DISK TO FIND/CANDE 
$$ AND GUARD/CANDE RESPECTIVELY. 
$f! 


$3. 0,G. WILLMSs24MAR76 a . 
S# PATCH NUMBER 506 FOR CANOE«XvI.0 CONTAINS 11 CARDS, 


Medea ade Neda nwa he de deee dee eON eee CORSA Ueber eeeConeseertKeeetrecteecrene 097010 


ALPHA PROCEOURE GETTYPE CFILETYPE)S VALUE FILETYPES INTEGER FILETYPES 74007020 
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BEGIN 74007030 

IF FILETYPE GTR NUMOFTYPES THEN RILETYPESS03 74007040 | a ee, eigen 
GETTYPES=IF BOOLEAN CWORK C4].01081)) THEN “UBYC ) * & 74007050 
TYPETABLE CFILETYPE] [30686] ELSE TYPETABLE CFILETYPEJS 74007060 

END OF GETTYPES 74007070 ae heey oe ee a eee ee 
$s VoroT 74039200 
PRINTIT (A CBASE + LI*GETTYPE CWORK €43,03686]))3 74019300 

$ YOIOT 74020800 74020600 re ye lp weapaseciclenisesacles 
PRINTIT (A CBASE + 1)eGETTYPE (WORK [4].[36861))3 74020800 


$: THIS PATCH WILL CAUSE CANDE TO GET THE FILETYPE FROM THE OLRECTORY WHEN 

$: It HANDLES THE "LIST FILES FILE™NAME™ REQUESTs PRIOR TO THIS PATCH CANDE 534 «Gk any Wee Chk kenga eee ee ad 
$! WOULD DETERMINE THE FILE TYPE (CIE* SOURCE OR OBJECT) FROM THE NAME, 

$3: A ZERO INDICATED OBJECT WHILE A NUN®@ZERO MEANT SOURCE® THIS CAUSED THE TYPE 

$: To BE INCORRECT FOR FUNNY FILES (lEe NON@=TSS)e D SMe, 328s) ey Uda Gye Seg See eee 
$3 NOTE = CANDE HANDLES A LIST FILES REQUEST IF UNE FILE*NAME IS REQUESTED 

$: INSTEAD OF FIRING UP LFILES/CANDEs 


$1 
$1 DCs WILMSe SMART 6, 
PATCH NUMBER 507 FOR CANDEeXVle0 CONTAINS 1 CARD, 
DEFINE MAXLINES = 14 #3 ZNO. OF LOGICAL LINES 00007900 bah, Whe See tpi Sites Dade pk i Get pacer adie oe ee 
$% THIS PATCH REDUCES THE NUMBER OF LOGICAL LINES CANOE CAN HANDLE. 
$3 


$1 


Ge WILLMS+ 5ARR76. 


$# PATCH NUM OR CANDE«XVI.O CONTAINS 2 CARDS, = 
IF S AND O THEN ELSE 61901750 
IF X.C42%6] EQL " * THEN 61902950 Fi chiahe SRR SE ES Lasts Neco lits Slo Nedvag Be Ses SOEs 
$3 THIS PATCH WILL ALLOW A USER TO REMOVE FILE NAMES 7 CHARACTERS IN LENGTH, 
$3 
ee Dae LMS SAP BD a nS 
ATCH NUMBER 509 FOR CANDE«XVI.Q CONTAINS 54 CARDS.» 
DEFINE LLWORDS = 130 #3 * WOS PER LOGICAL LINE 00008100 
DEFINE SBASE = 52 #3 ® PROCEDURE STACK BASE 00919900 ; Shope tae “Baan eget Wand egy Te in ei tah lean eal ahs aaa Bae tS 
DEFINE WRKPST 2 A0513.002!23) #, % OBVECT WORKFILE 00019644 
WRKIOT @ AC51),C23#23] #3 % TIME LIMITS 000319646 
DEFINE RESTRICTEDUSER © AL491-(58)] #, 00019648 a ibaa Se cna la a a 2 aca a al Rd ch 
RESTRICTED = BOOLEAN CRESTRICTEDUSER) #3 00019650 
DEFINE SMALLJOBLIMIT = 360043 % 1 MINUTE 00025450 
COMI5(LL813033 84127 eee USERCODEs CHARGE» Or TF RESTRICTED THEN 00039300 i FO ARG SR Sua sedeiaestned, £ soca See aot eee ae 
ENTIER CGRACEPERIOO X 216000) ELSE 432000)3 00039310 
RESTRICTEDUSER@ SIF CTseUSERCODEs(6863) GEQ 1 AND T LEQ 9 THEN 001014230 ; 
ELSE 13. ow. OF004240 ean ete eT Eee PRN erase erent alent net 
KOR Ee ERE EEK EN EHH E RRR NEE KE Kee EHZOTOOL ILO 
BOOLEAN STREAM PROCEDURE FLAGBIT (WI3 07004420 | 
ROR ee ERE EE Ree eee eee ie eee 7001490 = $ fccte aie eee: ica ee 
BEGIN 07001440 


r 
. 


SISsws IF SB TREN TALLY#s1 ELSE TALLY#§s03 FLAGBITI=eTALLY3 
END OF FLAGBIT3 
$ VOIOT 07002410 
WORK (€16)9SIF PROCESSLIMIT GTR O THEN PROCESSLIMIT ELSE IF RESTRICTED 
THEN 1500 ELSE 72603 
WORK Ci7]3=IF IOLIMIT GTR O THEN IOLIMIT ELSE IF RESTRICTED THEN 2100 
ELSE 108003 
WORK £16] t= PROCESSLIMITA 
WORK (417) &s JOLIMITS 
WORK(21) ta IF STACKSI€E GTR O THEN STACKSIZE 
ELSE 31423 % STACK 


07001450 
07001460 
07002100 
27900900 
27900950 
27001000 
27001050 
32901700 
32901750 
32002000 
32002010 


WORKC46]tsIF RESTRICTED THEN 1500 ELSE IF PROCESSLIMIT LE932003110 


7200 THEN 7200 ELSE PROCESSLIMIT3 
WORKCA7JisIF RESTRICTEB THEN 2100 ELSE IF IOLIMIT LE@ 
10606 THEN 10800 ELSE IQLIMIT3 
A ECBASEIT¢CS2LJISRESTRICTEQUSERS 
IF PROCESSWORD EQ. O THEN PROCESSWORD ta 6003 % 10 SECS. 
IF IQWORD EQL O THEN IOWORD $= 148003 % 30 SECS, 
WRKPST ts PROCESSLIMIT3 
WRKIOQT &*= JTOLIMIT) 
IF PROCESSWORD EQL O THEN PROCESSWORD ia WRKPST3 
IF TOWORD EQL O THEN TQWORD %% WRKIOQTS 
IF PROCESSWORD EQL 0 % GET PROGRAM SEGMENT ZERQ 
OR TOWORD EQL O THEN & TO CHECK TIME LIMITS 
BEGIN 
LLDISKREAD %# EVENTS (4)3 
WANT ts VDISKREADS 
DOING t= 43 
GQ TO EXITS 
ENO3 
IF RESTRICTED THEN 
IF PROCESSWORD * IOWORD GTR SMALLVOBLIMIT THEN GOERR ("TOO BIG"s,69)3 
BEGIN % CASE 4 = SEGMENT ZERO OF CODE FILE IN CORE 
IF PROCESSWORD LE@ O THEN PROCESSWORD?®&®IF FLAGBIT (WORK €16)) THEN 
600 ELSE WORK (16) 
IF TOWORD LEQ O THEN LOWORDtalF FLAGBIT CWORK C17]) THEN 1800 
ELSE WORK [(£47)3 
GO TO RUNN3; 
END CASE 43 
$3! THIS PATCH CHANGES THE WAY CANDE HANDLES TIME LIMITS, 
$: COMPILES SUBMITTED By EXTERNAL USERS HAVE NONWOVERRIDEABLE LIMITS OF 
$1 25 SECS, PST AND 35 SECSe I0Te INTERNAL USERS ARE 2 MINS» PST AND 


32003120 


32003130. 


32003140 
39003125 
57177100 
57177200 
57178100 
57178200 
57196100 
57196200 
57239100 
57219200 
57219300 
57249400 
§7219500 
57219600 
57219700 
57219800 
57227400 
57227500 
57253100 
57253200 
57253250 
57253300 
57253350 
57253500 
57253600 


$t 3 MINSe IOT. TIME LIMITS SUPPLIED AT COMPILE TIME BECOME THE EXECUTION 
$t TIME DEFAULTS» IF NO TIME LIMITS ARE GIVEN AT COMPILE TIMEs 10 SECONDS PST 


$t AND 30 SECONDS IToT ARE USED, EXTERNAL USERS ARE NOT ALLOWED TO 


$t EXECUTE ANY JOB WHOSE TIME LIMITS (PST + TOT) EXCEED THE SMALL yOB LIMIT 


$8 (CURRENTLY 1 MINUTE), 


$: EXTERNAL USERS ARE ALLOWED AN IDLE TIME EQUAL TO THE GRACEPERIOO BEFORE 
$1 THEY ARE THROWN OFF BY THE TSSMCPe INTERNAL USERS ARE ALLOWED 2 HOURS, 


$1 FLAGBIT PROCEDURE MOVED (NOW GLOBAL) SO THAT EXECUTE PROCEDURE CAN 


$$ 0.G. WILLMS» 12APR76, 

CHECK FLAGB ZERO OF CODE 

ER 510 FOR CANDEeXVIv0 CONTAINS 1 CARD. 
MATCHCRUNI»"LIST  ") CHUNKS!®6 ELSE 

$1 THIS PATCH CHANGES THE CHUNK SIZE FOR LIST/CANDE TO 6 FROM 5, 

$1 THIS SHOULD STOP THE EXPANDED (NU MEM) CONDITIONSs 


27002600 


<— 


Ca i So Se er ee ee ee er ee ee ee ee ee 


$! 


$3 DeGe WILLMS» 7APR76, LS ea ee Le ee re ear ee a 
$ UMBER 511 FOR CANDE+XV1.0 CONTAINS 4 CARDS. 


BEGIN WC tm A CSREG] ° 13 
$ VOIDT 
X,CAIS] te OF %& CLEAR "+" SIGN 
IF X,€626] EQL O THEN X,[6%6] 3a Mur; 
$t THIS PATCH CHANGES THE RESPONSE TO REMOVES OF NON@EXISTENT FILES 
$t AN ERROR MESSAGE IS SPOUTED EVEN IF THE FILE IS AN OBVECT FILE 


$t (CANOE CURRENTLY SUPPRESSES THESE), THE FIRST CHARACTER OF AN OBJECT 


$: FILE IS CHANGES TO A “*#", AND THE "+" SIGN IS CLEARED FROM THE 
$: FIRST CHARACTERS POSITION. 
$3 
$1 W MS» 8AP 

PATCH NUMBER 513 FOR CANDEsxVI+e0 CONTAINS 1 CARD, 

GRACEPERION s 0.0833 #» %& 5 MINUTES 

$! THIS PATCH CHANGES THE GRACE PER{OD TU S MINUTES FROM 15 MINUTES» 
$3 


$1 0.G. WILLEMS» 21APR74, entree 
$# PATCH NUMBER 514 FOR CANDEeXV1Ie0 CONTAINS 14 CARDS, 


COMPNAME = ALBASE+10)]%>» % SPECIAL COMPILER 
SAVESIZE = ile; % WORDS USED ABOVE 
ELSE MATCH CWORDs"SBECIAL") IF TYPEWORD EQL O THEN 

TYPEWORD#s99 ELSE ERROR (8) 
IF TYPEWORD FQL 99 THEN IF COMPNAME EQL O THEN 
COMPNAME ts WORD ELSE ERROR (8) ELSE 
IF TYPEWORD EQL 99 THEN 
IF COMPNAME EQL @ THEN GOERR (C"™INCUMPL",6)3 


CHKTYPES IF TYPEWORD NEQ@ 99 THEN 
BEGIN 
IF NOT BOOLEAN CCTS=TYPETABLE CTYPEWORD))ef181)) THEN 
END3 
RUN2ssIF COMPNAME EQL O THEN TYPETABLE CTYPEWORD],[6842] ELSE 
COMPNAME3 


$! THIS PATCH ALLOWS SPECIAL COMPILERS UNDER CANDEe THE SYNTAX IS 
$$ "SPECIAL™ COMPILER@*NAME. lee C SPECIAL ALGOL16 WITH LISTING. 
$1 
$ WILLMSs 20APR76 
$# PATCH NUMBER CANDE «XVIe0 CONTAINS 4 CARDS, 
DSs#5aLIT"YOUR SCHEDULED TIME IS ALMOST UP. PLEASE LOG OFF AS "3 
TF NOT TIMEOK CENTIER CCTIMENOWS3TIMEC1 )/216000)+GRACEPERIOD)>» 
TIMELIMITS) THEN 
BEGIN PLSLOGOFF (WORK)3 TWXOUT CLL»WORK (0]26992)3 


$t THIS PATCH CHANGES THE WAY USERS ARE TURFED OFF WHEN THEIR SCHEDULED 


61000618 
640900650 
61000660 
61000662 


00039622 


57020500 
57021000 
579092800 
57092900 
57103100 
57103200 
57126400 
57126500 
57439000 
57150100 
57150200 
57151300 
57177000 
57177050 


90091500 
90093200 
90093250 
90093400 


$t TIME IS UP. INSTEAD OF WARNING THEM AT THE EXPIRY TIME AND THEN GIVING 


St THEM A GRACE PERIQD» THEY ARE WAKNED BEFORE THEIR EXPIRY TIME AND 


$t THROWN OFF AT THE SCHEDULED TIME. 
$! 


$ W M 
$# PATCH NUMBER 516 FOR CANDE «XVI e NS 85 CARDS» we “gear ted 


DEFINE SECURE (SECURE1»SECURE2sSECURE3»SECUREG) & 
COM157 (LL&14 (338413715 7+SECUREL>SECURE2*USERCODEs SECURE3» 
SECURES) #3 
BOOLEAN SLASHsNAM3sNAM43 INTEGER FORGETSETS 
LABEL CHECKUSER»s SELECTITS 
A [CBASE+1] s=SQURCEFILES ® DEFAULT FILE NAME 
IF A C1]-03#3) 3 0 THEN &% NOT A LETTER STRING 


00041800 
00041900 
00042000 
68000550 
68000650 
68001400 
68002600 


i 
i 
| 
{ 
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» & 


BEGIN 
CHECKUSER? 
SLASHIBTRUES 
IF I + 2 LEQ IMAX 
BEGIN SREGte]; 
FIXUSER(C Is AsEXITs TRUE) ENDS 
END 
ELSE GO ERR1L 
ELSE IF NAM1 THEN GO CHECKUSER 
ELSE GO ERR1 
ELSE 
GO ERR1 
ELSE 
BEGIN 
IF SRC THEN GO TO ERR1S 
IF WTH 
OR OBJ THEN BEGIN FORGETSET%225 GO SELECTIT ENDS 
SRC= TRUE3 
IF OBJ THEN GO TO ERR1Is 
IF WTH 
OR SRC THEN BEGIN FORGETSET#2=13 GO SELECTIT ENDS 
OBUs®TRUES 
IF SLASH THEN IF NAM4 THEN GU SELECTIT 
ELSE BEGIN A [BASE*7]3=WORDS 
SLASH? SFALSE3 
NAM4¢#TRUE END 
ELSE 
IF NAM2 THEN GO SELECTIT ELSE BEGIN 
END 
IF OBJ THEN 
IF WORD.e(4236] NEQ " " THEN 
GOERR (CWORD*42)3 
IF SLASH THEN IF NAM3 THEN GO SELECTIT 
ELSE BEGIN A [BASE+6)3=5WORD3S 
SLASHtSFALSES 
NAM3SsTRUE END 
ELSE BEGIN 
SELECTITS 
END} 
END3 
IF SLASH OR (NOT NAM4) OR CWTH AND NOT NAM2) THEN 


IF A CI] = "/" THEN 
IF SLASH THEN GO ERRY 
ELSE IF WTH THEN IF NAM2 THEN 


GOERR C"*INCMPLT"s6)3 


68002610 
68002620 
68002621 
68002623 
68002625 
68002627 
68002628 
68002629 
68002630 
68002635 
68002640 
68002650 
68002660 
68002670 
68002680 
66002685 
68002690 
68003000 
68003050 
68003100 
68003150 
68003500 
68003550 
68003600 
68003650 
68904510 
68004520 
68004525 
68004530 
68004540 
68004600 
68004850 
68005110 
68005120 
68005430 
68005511 
68005513 
68005514 
68005515 
68005517 
68005518 
68005535 
68005540 
68005800 
68005850 


A CBASE4+533=REAL (SRC) & REAL (OBYIC46247%1) & FORGETSET(C4434682)368005950 


IF 
$ VOTOT 


IF NOT OBY THEN SECURE CACBASE*+1 1] eALBASE+6) 2 AL BASE+3] AC BASE+4) 13 


IF 


IF NOT SRC THEN SECURE CA CBASE+1].06836)] 9A [BaSE+6J]eA [BASE*3)» 


NOT NAM3 THEN A [BASE+6)] 88USERCODES 


A CBASE*3]:= © A (CBASE+2)3 
A CBASE*4]32I1F NAM4@ THEN aA CBASE*+7) ELSE USERCQDES 


FIND CLL&IAM C3387} 90sA CBASE+2) 4A [BASE*4) ,USERCODE 23 


TEMP3=73 
A CBASE+1),€a2:6)] E@L * " THEN 


A CBASE+4])3 & OBVECT 


TEMP! 6; 


68005960 
68006200 
68006210 
68006220 
66006300 
68006400 
68007000 
68007050 
68007100 
68007150 
68007200 


| 
| 
| 
| | 


em, 


® & 


PARAMS=IF SRC OR OBY OR A CBASE+11]-04216)] NEQ * * THEN 3 ELSE 23 68007300 


A CBASE+5),042%2]3 =PARAM; 68007350 
IF EVENTS C1) LSS 0 THEN & NO GUARD FILE 68008200 
WORDt2A ([CBASE+2)3 68008400 
WORD? 34 [BASE+2); 68009000 

$ VOIOT 68009800 68009600 
WORD!t&A (BASE4+5),(64282) + 53 68010110 
FOR 186 STEP 1 UNTIL WORD DO 68010120 
IF A CBASE*I]) NEQ 7 THEN 4% SECURITY MAINTENANCE IGNORED 68010200 
LITOUT ("ERR *,NOCRLF D4 68910400 

IF A CBASE4+I).(616] EQlL O THEN 68910510 
BEGIN 68010520 

A CBASESI}],(COs6] sans 68010530 

IF A CBASE+I].0C1216] LEQ 9 THEN * Ie "018010" 68010540 

A CBASE*I].CI2Zt3O)°SFILENAME,(6336)3 68010550 

END} 68040560 

LITOUT ¢€* A CBASE+ 3] sCRLF Ds 68910600 

IF B CFORGETSET?SA CBASE+51+6(4482)) THEN SRCta=FALSE 66010842 
ELSE SRCisB CA CBASE+5) 23 68010844 

IF FORGETSET = 2 THEN OBJS*SFALSE 68010846 
ELSE OBJi*B CA CBASE+5).£46084))3 68910848 


$: THIS PATCH UPDATES THE SECURITY COMMANDS "LOCK"» *"PUBLIC'™s AND "UNLOCK", 


$11. 


$3 5. 


<SECURITY COMMAND> NOT FOLLOWED BY A FILE NAME WILL NOW CORRECTLY 

ACCESS THE WORK FILEs PRIOR TO THIS PATCHe CANDE WOULD TRY TQ 

ACCESS THE WORK FILE USING THE USER"S NAME CIEs FILENM) INSTEAD OF 

THE SYSTEM NAME CIE. 154##). THE RESULT WAS EITHER AN ERROR IF THE 

FILE WAS NOT IN THE USER"™S LIBRARYs OR CANDE WOULD UPDATE A LIBRARY FILE 
OF THAT NAME INSTEAD OF THE WORK FILE. 


THE "+" HAS BEEN REMOVED FROM THE FILE NAME IN THE ERROR MESSAGES, 
ERROR MESSAGES FOR OBYECT FILES HAVE THE FIRST "0" REPLACED WITH AN "Hi, 


CANDE WILL NOW REPORT AN ERROR IF THE OBJECT FILE IS NOT IN THE DT RECTORY 
ON A <SECURITY COMMAND> <FILE NAME> INPUTe PRIOR TO THIS CHANGE» CANDE 
WOULD ONLY REPORT ERRORS FOR SOURCE FILES CUNLESS <SECURITY COMMAND> 
"QBJECT™ WAS INPUT). 


USERS ARE NOW ALLOWED TO SPECIFY A SUFFIX ON BOTH THE FILE NAME AND 
GUARD FILE NAME» IF IT FOLLOWS A "/™, 
EGe LOCK A WITH C/D 

LOCK A/B 

LUCK aA/B WITH C 

LOCK A/B WITH C/D 

PUBLIC A/B 

UNLOCK A/B 


St wwWARNING** © REQUIRES PATCH # 501 FOR "FIXUSER*® 
St wwNOTE** = MCP DOES NOT CHECK SECURITY = NEEDS MCP PATCH # 563, 


WILLMS = 25MAY76 


$# PATCH NUMBER 517 FOR CANDEsxXVI.9 CONTAINS 76 CARDS, 


BOOLEAN OBJ»SLASHS INTEGER IePcs REAL WORDS 64000550 
A CBASE*2]82USERCODE; 64005950 

ELSE . 64006010 

BEGIN 64006020 


i] 

i 

| 
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SLASH: =NBJI=BOOLEAN (CA (CBASE+2Z] 232A CHASE+I] 821 220)3 
PCisA (BASE); 
WHILE I LSS PC DO 
BEGIN 
INC (I) 
WURD?=A CINC CSREG)IJ3 
IF WORD,£38317 GTR O THEN 4 LETTER STRING 
BEGIN 
WORD? #WORD,C6!4273 
MATCH CWORD-"OBJECT ™) 
OBJ: a TRUE 
ELSE 
IF A CBASE4#1] EQL O THEN 
A [BASE+41]#3wORD 
ELSE 
IF A CBASE+2) EQL O THEN 
IF SLASH THEN 
BEGIN 
A CBASE+21]:2WORD3 
SLASHIsFALSE3 
END 
ELSE 
GOERR (WORDs8) 
ELSE 
GOERR CWORD,8) 
ENO 
ELSE 
IF WORDeli82] EQL 1 THEN % SPECIAL CHARACTER 
IF WORD EQk "/" THEN 
IF SLASH THEN 
GOERR (CWOROs8) 
ELSE 
BEGIN 
SLASH? #TRUE}3 
IF I + 2 LEQ@ PC THEN 
FIXUSER CIsAsEXITs» TRUEDs 
END 
ELSE 
GOERR (WORD?8) 
ELSE 
BEGIN 
WORDS *DECCONV CWORD)3 
GOERR CWORDs8)3 
ENOS 
END? 
IF SLASH THEN GOERR ("INCMPLT",823 
IF OBJ THEN 
IF A CBASE4#1) EQL O THEN 
IF GOOOOBY THEN 
BEGIN 
A CBASE#¢1]%sSOURCEFILEs (6236); 
A CBASE]#203 
END 
ELSE 
GOERR C"NO FILE%s 41) 
ELSE 7 
A CBASEFLI83A CBASE4+1),062396)]3 


64006030 
64006040 
64006050 
64006060 
64006070 
64006080 
64006090 
64006100 
64006110 
64006120 
64006130 
64006140 
64006150 
64006160 
64006170 
64006180 
64006190 
64006200 
64006240 
64006220 
64006230 
64006240 
64006250 
64006260 
64006270 
64006280 
64006290 
64006300 
64006310 
64006320 
64006330 
64006340 
64006350 
64006360 
64096370 
64006380 
64006390 
64006400 
64006410 
64006420 
64006430 
64006440 
64006450 


64006460 | 


64006470 
64006480 


64006490 


64006500 
64006510 
64006520 
64006530 
64006540 
64006550 
64006560 
64006570 
64006560 
64006590 


| 
| 
| 
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9wrteeeee#5eeee#eegee#454208e%e%e0808080 0 00 0 0 ®@ 


$3 
$3 
$1 


$# PATCH NUMBER 518 FOR CANDEeXVIe0 CONTAINS 9 


IF A [CBASE#2) EQ, O THEN 
A CBASE+2]:sUSERCODE: | 
ENO; 
GO TO CASE13 
END3 % CASE 0 
A CBASE+2)]%=USERCQDE; 
FIND CLL&ITAM £3324137)00sA CBASE+L J 2A CBASE+2] 2USERCODE)S 
IF A CBASE+1)],£686)] EQL O THEN A CBASEF1], COG] inven; 
IF EVENTS C1) LEQ O THEN 
BEGIN 
GOERR (A (BASE41)»2)3 
END; 
MSG C(CLoIF A CBASE41],(626) EQL **” THEN O & "He" [C6F4236) & 
FILENAME €1236336] ELSE FILENAME, TRUE*TYPETABLE CFILETYPE)»s 
WORK C7J]412DATEsTMeWORK (3),02810]) 
THIS PATCH UPDATES THE WHATS COMMAND, 


A USER CAN NOW SPECIFY A FID IN THE WHATS COMMAND. 


EG. WHATS A/Be 


A USER CAN ALSO NOW ACCESS HIS QBVECT WORK FILE VIA WHATS OBJECT. 


*#WWARNING*® = REQUIRES PATCH # 501 FOR FIXUSERe 


CHANGEFILE4sCHANGEFILES eCC15 (CHANGEFILE1,5¢CHANGEFILE2s 
CHANGEFILE3+CHANGEFILE4»sCHANGEFILES s+ USERCODE) #3 
INTEGER L3 
IF A CINCCSREG)) EQL "/" THEN 
BEGIN 
IF LisT*C(SREG=S) EQl O THEN GO [TO BADPARAMS 
TF L GEQ@ 2 THEN FIXUSER (SeAsEXITeFALSED3 
IF A CINCCSREG)1,.0383) GTR O THEN 
A CBASE+S]#sa CSREG],[(6242] 
ELSE GO TO BADPARAm3 
INC (SREG)3 
END 
ELSE 
A CBASE+5]82USERCODES 
MATCH CA CSREG).CE842] e"TYPE ") GO GETYPES 
A CBASE*i Jia CSREGI,(6842); 
If A CINCCSREG)) EQL "/" THEN 
BEGIN 
IF LtsTeC(SREG@S) EQl 0 THEN GO TQ BADPARAM} 
IF L GEQ 2 THEN FIXUSER CS»As EXIT» FALSE); 
IF A CINCCSREG)}.0383) GTR O THEN 
A [BASE+6]93A CSREG] 66342] 
ELSE GO TO BADPARAM3 
END 
ELSE 
BEGIN DECR (SREG)3 
A CBASE+6]8"USERCODES END; 
TEMP 8363 


% VOID A CARD 


FIND CLL&IAM C33841487)20»MAKEFN CLS" LL es USERCODESUSERCODE)3 
FIND CLEL&IAM C3334187) 202A CBASEJ2A [BASE+5),USERCQDE 03 
FIND CLUL&IAM €C3384187]20sA (BASE*II9A [BASE+6) »USERCODE 23 


64006600 
64006610 
64006620 
64006630 
64006640 
649006950 
64007100 
64007650 
64007700 
64007710 
64007730 
64007740 
64008900 
64008950 
64909000 


00041200 
009041300 
00200420 
090205400 
00205405 
00205410 
00205415 
00205420 
00205425 
00205430 
00205435 
00205440 
00205445 
00205450 
00205455 
00206300 
00206305 
00206310 


00206315 | 


00206320 
00206325 
00206330 
00206335 
00206340 
00206345 
00206347 
00206350 
62000500 
62003800 
62001900 
62002500 
62003000 


ee#s#0eoeeeeeeeeeeee?eeesvt#e#eeseeesees ®@ 


IF A CBASE4+1) = 2 THEN IF A CBASEI],0C4236] EQL " * THEN 62004563 
A (BASEJ!3A [BASE],06336)] ELSE 62004564 

GOERR (A CBASEJ»42)3 629004565 

FIND CLL&IAM C3324127)20,A CBASEJ*A CBASE+5),USERCODE 23 62004566 
TizIF SCHEDULINE AND BOOLEAN CSCHEDNAMEe([181)) THEN OQ ELSE 33 62004900 
DOING##23 62005200 
IF A CBASE+5) EQ_L USERCODE THEN 62005680 
TIZLL & VMCPMSG [(33241!7)3 62007100 
CHANGEFILE CTA CBASE+1] 2A [CBASE+5) 9A [CBASE*+2]0A (CBASE+6])3 62007200 
Ir A CBASE),£42!6)] Eqt * * THEN 62007210 
BEGIN 62007220 
PARAMS2LIBMSGCTR# 323 62007230 
CHANGEFILE CTA CBASE*+3)],A CBASE+S] 94 CBASE*G)] 2A CBASE+6))3 62007300 
END 62007400 
ELSE 62007410 
PARAMSSLIBMSGCTRs213 62007420 
VOID A CARD 62007500 
VOIOT 62007800 
IF A CBASE+6] NEQ 7 THEN GOERR (* A CBASE+6]92)3 62008200 
IF A CBASE*5) EQL USERCODE THEN 62908250 
VOID A CARD 62008800 
MAKEFILE CLLQL3C3384137) 1 eMAKEFN CPLS*eL iD Ss USERCODEoFILETYPEs 02462008900 
DOING? 363 62009900 
LLDISKREAD&S3TPDKADR3 % GET EOF POINTER RECORD IN "4P" FILE 62010375 
WANTS 2VDISKREAD3 62010400 
DOING#=113 62010450 
IF A CBASE+1}] GTR O OR A CBASEJ 204226) NEQ * * THEN 62011500 
FIND CLL&IAM £€3324137]20,A CBASEJ¢(6836)5A CBASE +5] 2 USERCODE )3 62011800 
VoroT 62911900 
BEGIN LITOUT ("ERRS “,NOCRLF )3 62012500 
LITOUT cO & "a" (€6242%6) & A CBASE) (1226236) sCRLF D3 62012550 
IAM?##®03 GO TO EXIT; 62912600 

END3 62912650 
BEGIN % CASE 11 = "1P"% EOF POINTER IN CORE 62013502 
If WORK COJ=TENS THEN % EOF P@JNTER 62013504 
BEGIN 62013506 
WORK [20] 8*FILETYPES % NEW FILE TYPE 62013508 
DISKWRITE (TPOKABR)3 % REPLACE EOF POINTER 62013510 
ITAMt=0; 62013512 

END 620143514 
ELSE 62013516 
BEGIN % RATS * FILE TYPE IN NEXT SEGMENT 62013518 

IF WORK [€10)#TEN8S THEN 62013520 

A CBASE]!=0 62013522 

ELSE 62013524 

IF WORK [20)]sTENS THEN 62013526 

A CBASE]3810 62913528 

ELSE % CANT FIND EOF MARKER = GIVING UP 62013530 
BEGIN IAMs#03 GO EXIT END 62013532 

DOING ##4123 62913534 
LLDISKREADSZTPOKADR+413 629013536 
WANTS EVDISKREAD3 62013538 
TEMP8=13 62013540 
END} 62013542 
ENDS % CASE 14 62013544 
BEGIN % CASE 12 = FINALLY GOT FILETYPE IN “"1P" EOF RECORD 62013546 
WORK CA CBASEIJ]&sFILETYPES 62013548 


@Bevusv45ueees4s§os#eeeee%eeeee0e0e0e0e @® 
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DISKWRITE CTPOKADR41)3 62013550 

TAM3 203 62013552 

ENDS & CASE 12 62913554 
$$ THIS PATCH UPDATES THE CHANGE COMMANDe 


$: THIS PATCH ALLOWS A USER TO SPECIFY A FIO ON BOTH THE OLOFILE AND THE 

$t NEW FILE» THE FORMAT IS MFID/FIDe 

$! EG. CHANGE A/B TO C/D hes es apes eae Aas. Wi et ap tao hacia earraas Rrah cia ees 
$3 CHANGE SOURCE A/B FACTOR TO 8 


$3 #eWARNING** = REQUIRES PATCH # 501 FOR "FIXUSER" . jarapeeenetede ee 
$: *#wNOTE** = MCP DOES NOT CHECK SECURITY = NEEDS MCP PATCH # 563, 


$t D,GeWILLMS» 1JUN76, : eae eo 
$t PATCH UPDATED 13AUG76_ DaGeWILLMSe 
$3 CANDE WILL NOW UPDATE THE "1P" FILE ON A WORKFILE TYPE CHANGEs 


$1_ THIS IS DONE SQ THAT CANDE WiLL REMEMBER A TYPE CHANGE ACROSS A H/Le Sapk cease cae te icaepael 
$# PATCH NUMBER 519 FOR CANDEeXVI.0 CONTAINS 9 CARDS 


STREAM PROCEDURE LOAUCODE (PLACE)3 14052610 
BEGIN 14052620 | — itty Stare 
DIt=PLACE; DIt=s01423 14052630 
DSts6 LIT " PST 3 DLs=p[+263 14052640 
DSt=6 LIT " [OTe "3 14052650 | SAA ete. a, fee 
END OF LOADCODE3 14052660 

TIMEUSED CWORK C6J»TIMECONV (EVENTS €4)0616832)9FALSE))3 14213100 
LOADCODE CwORK [5))3 14243200 — Se ee ie ee 
THXOUT CLL»WORK [O}*7292)3 14215000 
$t THIS PATCH UPDATES CANDE EQJ MESSAGE. 
$1 oo a b. Bein ceed cee 
$1 CANDE WILL NOW GIVE gOTH PROCESS & I0 TIMES REQUIRED FOR EACH vOB STEP. Woz 
$! THE FORMAT IS <PST TIME> PST <10 TIME> I0Te c 
$3 


$! 0G. WI 
ATCH NUMBER 520 FOR CANDEeXVIeO CONTAINS 1 CARD, 


$ VOIDT 61002900 61902810 wi ts sr, shed Sys anions acta Ri re Aa 
$t THIS PATCH UPDATES THE REMOVE PROCEDURE, 

$t A USER CAN NOW REMOVE A FILE IF IT HAS A NAME THAT IS A VERB CIEe BYE), 
$3; PRIOR TO THIS PATCHs A USER COULD CREATE THE FILE OR CHANGE JTS NAME 

$$ BUT HE COULD NOT REMOVE IT» 


| 


$t 
UN TS OS 
# PATCH NUMBER 1 FOR CANDE«XVI.«O0 CONTAINS 18 CAROS,. 
USERBASE»s % BASE ADOR OF USERS/CANDE 00012510 
$ VOIDT 00015200 00035110 | sa turrets asbhetreichdinu, cy Bees pintsieleh bene ee peteee aT etc 
LLOISKREADS=USERBASE+I3 019011600 
USERLOCsS SUSERBASE*+USR3 01912710 
STREAM PROCEDURE ERR (W)3 05000332 Eine = 
BEGIN 05000334 
DIsews DS2s3{LIT*USERS/CANDE HAS MORE THAN 1 ROWS OSIsLIT%e™3 05000336 
END OF ERR3 05000338 Ste tn me 
INTEGER I3 05000340 
FOR Tt=11 STEP 4 UNTIL 29 DO 05901025 
IF WORK (1) GTR O THEN 05901030. Fore he eecheag naa ee eee eg ee ee 
BEGIN 05001035 
ERR (L)3 TWXOUT (Oek COJs3291)3 05001040 
1t=0/03 ® KILL CANDE 0§001045 my beatdeingidad Saateatctones, eifacnn te 2 Ge cote lei a oe 
END3 05001080 


| 
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USERBASEt=WORK [10)3 
LLOISKREADSSUSERBASES % USERS/CANDE RECORD ZERO 
DISKWRITE CUSERBASE)3 
$1 THIS PATCH UPDATES THE LOGGING PR@CEDURE. 
$3 USERS/CANDE MUST NOW BE A 1 ROW FILEe THIS WILL SPEED UP THE 
$1! LOGGING PROCEDURE AND CuT DOWN UN CANDES CORE REQUIREMENTS.» 
$3 


0.Ge_W 


H NUMBER 522 FOR CANDEeXVI,0 CONTAINS 91 CARDS, 
REMUSERBASEs»  % BASE ADOR OF REMOTE/USERS 
STREAM PROCEDURE SYSERR (W)3 


BEGIN 
OL3=W3 OSt=26LIT"SYSTEM ERROR @ PLEASE WAIT"? 
ENO OF SYSERR; 
STREAM PROCEDURE OPERR CWeSeUC»URI$ VALUE SeUC URS 
BEGIN 
LABEL TO»sTisT2cEXIT3 
DI&#ws DStF19L IT "CANDE*REMOTE/USERS "3 
CLesCl+S3 
GO TO TO 
GO TO Tis 
60 TO T23 
DSteiOLIT*LINK ERROR FROM "3 
S~teLOc Ucs SytsSpois OSs=7 CHR; 
DStFaLIT* TO 3 
SlteSl4+13 OSte7? CHR 


GO TO EXIT3 
TO! 
OSt@7L1IT"NO FILE"S DSas27LIT” "3 
GO TO EXITS 
T13 
OSte2LIT"INVALIO USER™S DSts2eL IT” "5 
GN TO EXITS 
Tai 


DSt*zyOLIT"*ROWS GTR 13 OSs=24LIT" "3 
Ex ITs 
ENO OF OPERR;> 
STREAM PROCEDURE NOMONEY (CW)3 
BEGIN 
DIteWs DSte46LIT"SORRY*YQU CAN NOT USE THE SYSTEM AT THIS TIME="3 
DSIFL9LIT™ALLOCATION EXCEEDED"; 
END OF NOMONEY3 
LABEL GETREMUSERsKICKOFF »sMONEYOKS 
TEMP $293 , 
A C(BASE*73tzWwORK [28]3 % REMOTE/USERS OFFSET 
IF REMUSERBASE EOL 0 THEN & FIRST USER LOGGING IN 
EGIN 
Sab CLL&IAM C33841%71],0-e"REMOTE “*s"USERS “es PRIVUCODE DS 
WAITFORS al AM} 
DOINGS #8; 
GO TO EXIT3 
END3 
GETREMUSER? 
LLDISKREADSsREMYSERBASE+A [BASE+7}3 
WANTS BVDISKREAD3 
DOING? #103 
GO TO EXIT; 


05001055 
36005200 
36005900 


00012520 


91005102 | 


01905104 
01005106 
01905108 
01005110 
01005112 
01005114 
01005116 
01005118 
01005120 
01005122 
01005124 


01005126 


01005128 
01905130 
01905132 
01005134 
01005136 


91905138. 


01005140 
04005442 
01005344 
01005146 
01005448 
01005450 
01005152 
01005154 
01005160 
01005362 
010051464 


01005166 


01005168 
01005350 


01912100 


01014250 
01015640 
01035645 
01915650 
01015655 
01015660 


010135665 


01915670 


01015675 


01015680 
01015685 
01035690 
01915695 


| 
| 
| 


<— 
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MONEYOK 01915697 
KICKOFF 01915850 
BEGIN & CASE B eocveservnernvvrvverecetareveseteccerneeeces eee 0, Vel12e0§ 
IF EVENTS €1) LSS 2 THEN 01024210 
BEGIN 01921215 
SYSERR (WORK) TWXOUT CLL »WORK £[0]s2691)3 01021220 
OPERR CWORKSEVENTS (117412"0%2"0")3 TWXOUT CO*WORK (0)253212301021225 
TAM3#03 01921230 

GO TO EXITs 01921235 
END3 01921237 
LLDISKREADIZEVENTS (2),.0618815)3 01921240 
WANTt2vDOISKREADS 01021245 
DOING?#93 01921250 
GO TO EXIT; 019021255 
END CASE8}3 &% CP CMES EES MUNED TRON OS HAG 660880068 Heee Cea wes bes OL 021260 
BEGIN % CASE 9 cecevecenretennreveseseterereseteseseoeseveese sO VaelZ6s 
FOR Itsli STEP 1 UNTIL 29 00 01921270 
IF wORK CI) GTR O THEN 01021275 
BEGIN 01021280 
SYSERR CWORK)3 TWXOUT CLLeWORK [0)92601)3 01921285 

OPERR CWORKs20"0%2"0")3 TWXOUT CO#WORK £0]25391)3 01921290 
TAM%2Q3 019021295 

GO TO EXIT; 01021300 

ENO; 019021305 
REMUSERBASEt=WORK [1033 01021310 
GO TO GETREMUSERS 01021315 
END CASES} y 4 Pee e eee P OOH ee ee eeereteteneeennseseervenecseeen Oi Velse0 
BEGIN & CASE 10 cecvenasneetenvenceneeetarsenentenverveseveseeeOivelaes 
IF USRS*®WORK CoO] NEQ USERCQDE THEN 019021330 
BEGIN 019021335 
SYSERR CWORK)S TWXOUT CLLsWORK (0) 22601) 01921340 
OPERR CWORKs 3»USERCUDE*USR)> TWXOUT CO*WORK (0)25391)3 01921345 
TAMs#Q3 01021350 

GO TO EXIT 01021355 
END3 01921360 

IF B CWORK (€1),£10211)) THEN 01021365 
BEGIN |. 01921370 
NOMONEY (WORK)S TWXOUT CLL»>WORK (0]56504)3 01021375 

GO TO KICKOFFS 01921380 
ENDS 01921385 

GO TO MONEYOKS 01921367 


END CASE103% eg PRCES Sie BEV OEE Da Oe HAWK Oe aa Oe wea ECOL OES 90 


END ALL CASES} 
$s THIS PATCH UPDATES THE LOGGING IN PROCEDURE. 


01021395 


$: WHEN A USER ATTEMPTS TO LOG IN» CANDE READS HIS REMOTE/USERS RECORD TO 


$1 DETERMINE IF THE USER HAS EXCEEDED HIS ALLOCATION OR NOT CEACH 


$1 USERS/CANDE RECORD HAS THE OFFSET INTO REMOTE/USERS REQUIRED TO FINO 


$1 THE CORRESPONDING USERCODE). USERS EXCEEDED THEIR ALLOCATION ARE 
$1 NOT ALLOWED TO LOG IN» IF REMOTE/USERS IS NOT ON DISK OR HAS MORE 


$3 MORE THAN 1 ROW OR CANDE IS AN INVALID USER» THE USER IS ASKED TO WAIT 


$! WHILE THE OPERATOR IS INFORMED OF THE ERRORe ONCE CORRECTED THE USER 


$1 MAY ATTEMPT TO LOG IN AGAIN. CANDE WILL ALSO BE ANNOYED IF THE USERCODE 


$s: READ FROM REMOTE/USERS 1S NOT THE USERCODE LOGGING INe CANDE WILL 
$3 TREAT THIS ERROR THE SAME AS THE NO FILE CONDITION DESCRIBED ABOVE, 
$t 

G, WILLM BJUN76 
$# PATCH NUMBER OR CANDE sXV1.0 CONTAINS 18 CARDS, 


i 
! 
' 
i 


| 
i 
| 


: 


a 
hw 


%* TO VOID A CARD 
TEMP! 983 % MUST NOT BE 4 @ SSFILE USES AS FLAG 
IF EVENTS ¢€3] LSS 0 THEN GO TO WINDUPS % NO RECORDS 
LLOISKREADSSEVENTS (2).618815)3 
DOING$a23 % TRANSFER TQ 
TAMS=VSSFILE3 % SSFILE 
A CBASE+3)35LL;3 
& VOIDT 
DEFINE SPOCNTRL 2 A CBASE#2) #3 
BEGIN 
IF TEMP NEQ 4 THEN % RETURN TO "HITHERE” 
BEGIN 
TAMSSVHELLOS DOING! 273 
END 
ELSE 
ILAM#303 
GO TO EXIT; 
ENDs 
$3 THIS PATCH UPDATES LOGGING IN. 
$3 IF THE NEWS/CANDE FILE IS PRESENT DURING LOGINe PROCEOURE SSFILE WILL 
$1 BE CALLED TO LIST THE ENTIRE FILE+ CONTROL WILL THEN GO BACK TO 
$i HITHERE. 
$$ ALSO CANDE WILL NOT LIST SEGMENT ZERU ON THE TERMINAL IF THE 
$3: NEWS/CANDE FILE CONTAINS NO RECORDS (IEe ROW 1 AT SEGMENT 0). 
$1 


00011600 
01912100 
01019350 
01019400 
01019550 
01019600 
019019650 
019019900 
420004650 
42007000 
42007010 
42007020 
42007030 
42007040 
42007050 
42007060 
42007070 
42007080 


$3 D0,Ge WILLMSs 24) 
$# PATCH NU 4 FOR CANDEeXVI.0 GONTAINS 9 CARDS. 


seus IF A [BASE] LSS 50 THEN &% CHECK FOLLOWING IF NOT "WELLO”M 
BEGIN 
IF Ts=(CA CSREGSSBASE*A [(BASEJ)]).FF) > 1 THEN 
GOERR C™TOOMANY"s1623 & TOG MANY PARAMETERS 
If T = 1 THEN 
IF TeecA CINC (SREG)1.66842) wQBYE 
ELSE GOERR (T»s8) & ILLEGAL PARAMETER 


ELSE 
ENDS 


$1 THIS PATCH UPDATES BYE, 

$i IF A USER TRANSMITS BYE BYE» CANDE WILL NOT CHECK TO SEE IF HIS WORK 
$i FILE HAS UNSAVED RECORDS IN IT» IT WILL GO DIRECTLY TO LOGGING HIM OF 
$3 IF A USER EXCEEDS HIS IDLE PERIOD» THE MCP WILL ALSO SEND A BYE BYE 
$t COMMAND TO DISCONNECT HIM IMMEDIATELYe 

$3 


" THENSFORCED BYE 


$} DeGeWILLMS»11AUG76, 
25 FOR CANDE+XVIe9 CONTAINS 1 CARD, ar eres: ere 


WORK (16)1253 & PRIORITY 
St THIS PATCH ALTERS THE DEFAULT PRI@RITY OF yOgS COMPILED UNDER CANDEs 
$i THIS PRIORITY 1§ 5, THIS WILL ONLY BE USED WHEN A PROGRAM COMPILED 
$1 UNDER CANDE IS EXECUTED UNDER BATCH, 


wl 

ATCH NUMBER 526 FO 
TAMS 203 

TAM12Q3 

TAM!503 

$i THIS PATCH CAUSES CANDE TO SET UP THE "1P" AND "1T" FILES ONLY IF THE 

$: USER IS GOING TO USE A WORK FILE CIEs "MAKE" OR "LOAD"), PRIOR TO 

$1 THIS PATCH CANDE WOULD SET THESE FILES UP WHENEVER A USER LOGGED INy 


NS 3 CAROS. 


54000601 
34000602 
54000603 
34000604 
54000605 
54000606 
54000607 
34000608 
54000665 


Fe 


32001800 


01021000 
09902900 
09004400 


FEaukes mee PATCH st 


} 
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4 
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$i SOME USERS NEVER USE A WORK FILE AND THUS DON"T NEED THESE FILES. 
$t THIS WILL ALSO HELP TO REQUCE CLUTTER ON THE DISK, 


DeGeWILLMSs 16AUG76 
ATCH NUMBER 527 FOR CANDE>s ‘ QN NS 37 CARDS. 


Se EERE EER Aa ekeekekike ies ewe 00066150 


PROCEDURE FILESAWAY COBYTOOs,USERCODE)S VALUE OBUTOO-USERCODES 00066200 
BOOLEAN OBYTOOs REAL USERCUDES 00066225 

TESTE TEC ATES OLOECICCECTECCCCASCOCCAR CASES SCC ORES SSCS SCSLI CLIC SELES ES ES 2oleltl-)-9-3.10) 
BEGIN 00066300 

REAL Ti*T23 00066359 

TASRLL & 43 €33%418733 00066400 
REMOVEFILE CTis,T2:sMAKEFN C™LS"*LL) sUSERCODE D3 00066450 

IF OBYTOO THEN REMOVEFILE CTisT2. C636] *USERCODE)3 00066500 
REMOVEFILE CTieT2 & "P™ CIi2t42t6)]suSERCUDE D3 00066550 
REMOVEFILE CT1,T2 & "TY CI2%4236)-USERCQODE D3 00066600 
REMOVEFILE (TirT2 & "Q" [124286] ,USERCODE); 00066630 
T2.(362121]8 213 00066700 
REMOVEFILE (T1,.T2 & "P*® [12%ta42i6]s+USERCODE Ds 00066750 

END OF FILESAWAY3 00064800 
FILESAWAY CTRUE*USERCUDE)3 §a002200 

$ VOrOT 54002950 §4002300 
WRKFILE? 61001000 
IF FILENAME = Q THEN GOERR ("NO FILE» 1)3 61001050 
TPCOUNTIESFILENAMES =SQURCEFILES SIT AM3 203 61901100 

FILESAWAY (NOT S#USERCODE D3 61001110 

FILESOK: =F ALSE3 61901120 

IF NOT §S THEN GOODOGJ!=B (COBJECTFILES 093 61901130 

IF 0 TREN 61003213 

IF GOODOBY THEN 61003216 

BEGIN 61003220 
OBJECTFILEs=03 61903223 

GOOPOBJI=FALSE3 619003226 

X?BMAKEFN C™IS"SLL DG 61903230 

REMOVEFILE CLL & 13 L393S4LI7IeX.CO8 3S] se YSERCODE 23 61903233 

ITAM3303 61003236 

GO EXIT; 61003240 

END 64003243 

ELSE 61003246 

GOERR ("NO FILE%s26) 61903250 

ELSE 61003253 

GO TO WRKFILE3 61903260 


$t THIS PATCH UPDATES "REMOVE", 

$1 IF A USER REMOVES HIS WORKFILEs CANDE WILL NOW REMOVE ALL ASSOCIATED 
$3 FILES CIE, "18%>» “EP, MET, ETC) 

$1 IF A USER ATTEMPTS To REMOVE HIS WORKFILE COR HIS OBYECT WORKFILE) 

$t CANDE WILL NOW CHECK TO SEE IF HE HAS ONE RATHER THAN VYUST RESPONOING 
$3 WITH A "8", 


$ A NUMBER 528 FOR CANDEeXVI.0 CONTAINS 124 CARDS, 

DEFINE NUMOF VERBS = 50#>» 00008500 

REO w eae RH EN EAE AREER EKER eee ee eH 65000100 — 
PROCEDURE BATCHIT CLCOWsA)3 BROLEAN LOWS ARRAY A CO}3 65000200 

Ke tT EERE EN EERE NE REE eee ie eee ew h5000300 

BEGIN 65000400 

INTEGER IsPC3 65900500 


i 
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| 
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REAL WORDS 
BOOLEAN TOIT»SENOIT,LIBTOGS 
LABEL LIBFILsEXITS 

CASE DOING OF 


BEGIN ® ALL CASES 
BEGIN % CASE 0 = SYNTAX CHECK 
IF TPCOQUNT GTR O THEN & WORKFILE NEEDS UPDATING 
BEGIN 
LITOUT C"WAIT, "“sNOCRLF)S TEMP$314 WANTI@VUPDATES 
GO EXIT3 
ENDS 


CLEAR (WORK [0]»10)3 
LIBTOGSSTOITSSSENDIT$sB C1380): 
PCt3A CSREGHSBASE*A CBASEI]] oF FG 
WHILE I LSS PC DO % PICK UP ALL PARAMETERS 
BEGIN 
INC C1)3 
WORD? aA CINC CSREG)]3 
IF WORD.0323] GTR O THEN & LETTER STRING 
BEGIN 
WORDS aWORD,C6842)3 
IF WORD = "SMALL ™ THEN 
IF WORK (€4] = 0 THEN WORK (4) %e"PSEUDOS" 
ELSE GOERR (wORD»s 32) %® "SIZE" ALREADY IN 
ELSE 
IF WORD = “MEDIUM " THEN 
IF WORK £4) = 0 THEN WORK [(4)8a"PSEUDOM" 
ELSE GOERR ¢WORD»s 32) 
ELSE 
IF WORD # "LARGE "™ THEN 
IF WORK (4] = O THEN WORK (4])8="PSEUDOL” 
ELSE GOERR (WORDs 32) 
ELSE 
IF WORD = "TO " THEN 
IF TOIT THEN GOERR (WORD? 8) 
ELSE TOIT## TRUE 
ELSE 
IF WORD ® "LIBRARY™ THEN 
LIBFIL! 
IF LIBTOG THEN GOERR CWORDs8) ELSE 
IF TOIT THEN GOERR CWORD?239) 
ELSE 
BEGIN 
LIBTOG:sTRUES 
IF I#2 LEQ PC THEN FIXUSER CI*eAs EXITs# TRUE) 
END 
ELSE 
IF WORD = "SEND " THEN 
IF SENDIT THEN GOERR (CWORD?8) 
ELSE SENDITssTRUE 
ELSE 
IF WORD = "GLENRIO” THEN 
IF SENDIT THEN. I 
IF wORK C9] = 0 THEN WORK [(9]iao 
ELSE GOERR CWORD?8) 
ELSE GOERR CWORD?8) 
ELSE 


65900600 
65000700 
65000800 
65000900 


65001000 


65001100 
65001200 
65001300 
65001400 
65001500 
65001600 
65001700 
65001800 
65001900 
65902000 
659002100 
65002200 
65002300 
65002400 
65002500 
65002600 
65002700 
65002800 
65002900 
65003000 
65003100 
65003200 
65003300 


65903400 


65003500 
65003600 


65903700 | 


65003800 
65903900 
65004000 
65004100 
65004200 
65004300 
65004400 
65004500 
65004600 
65004700 
65004800 


65004900. 


65005000 
65005100 
65005200 
65005300 
65005400 
65005500 
65005600 
65006300 
65006400 


— 65006500 


65006600 


65006700 
65006800 
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END3 


END3 
BEGIN 


END} 
BEGIN 


IF WORD = "BLANK "™ THEN 
IF WORK (5) = 0 THEN WORK [5J#21 
ELSE GOERR (WORDs8) 
ELSE & MUST BE FILESNAME 
IF TOIT THEN 
IF WORK [2] = O THEN 


IF wORD,C42%6)]s" “ THEN WORK (2)%2WORD,[6336)] 


ELSE GOERR CWORDs42) 
ELSE GOERR CWORDs8) 
ELSE 


IF WORKCREALCLIBTOG)J20 THEN WORKCREALCLIBTOG) ]# swORD 


ELSE GOERR (WORD»s8) 
END & LETTER STRING 


ELSE 
IF WORDelC1is2) = 4 THEN % SPECIAL CHARACTER 
IF WORD = "/" THEN GO TO LIBFIL 
ELSE GOERR (WORD?8) 
ELSE 
GOERR C(WORD»8); % NUMBER 
% PICKING UP PARAMETERS 


IF WORK CO) = 0 THEN IF FILENAME = 0 THEN GOERR CYNO FILE%2 1) 


ELSE WORK CO]S=SOURCEFILE; 

IF WORK £1) = 0 THEN WORK Ci1]4*USERCODES 

IF WORK £2) = © THEN GOERR CYNO FILE" 3823 

WORK €2],.C686]:2USERCODE,[6I6]3 

WORKL31#sUSERCODES 

IF WORK (C4) = Q THEN WORK C4)$="PSEUDOL"s 

MOVE C2*#WORDS»sUSERNAMEL* WORK [6]1)3 

WORK CBI] %SLL3 

IF WORK £9] * 0 THEN IF SENOIT THEN GOERR ("SEND ",8) 
ELSE WORK [9]8=213 


FIND CLL&IAM C3384197)202A CBASE]33WORK COJeWORK £1] /USERCOQDE) 465009300 


A [CBASE+1]3=WORK (293 
A CBASE+2]:2WORK [4]3 
DISKWRITE CESR1)3 
TEMP 3233 
DOINGta13 
WALTFORSSIAM3 
% CASE O3 
% CASE 1 = RESULTS OF INPUT FILE SEARCH 


IF EVENTS €4) LSS 0 THEN GOERR CA (BASEJ22)% % NOT ON DISK 


IF EVENTS C1) s O THEN GOERR CA £BASE1224)3 %&% SECURED 


FINO CLLGIAM £3324197]200A (CBASE+1) 2A (BASE4+2),USERCODE )3 


DOINGS #23 

WAITFORESIAM; 
% CASE 1 
% CASE 2 


IF EVENTS €1] GEQ O THEN GUERR CA (CBASE+1)23)3 % ON DISK 


ENO} 
ENO3 


LITOUT C°WAIT. M943 
EOJMSGs=NOT CONCISES 
WRITEASTERISKSsCONCISES 
RUNLSS"BATCH "3 
RUN2S"CANDE "3 
TAMIsVDOISPATCHS 
ERRSWISsUSERCODE3 

% CASE 2 

& ALL CASES 


65006900 
65007000 
65007100 
65007200 
65007300 
65007350 
65007400 
65007450 
65007500 
65007600 
65007700 
65007800 
65007900 
65908000 
65008100 
65006200 
65008300 
65008400 
65008500 
65008600 
65008700 
65008750 
65008800 
65008900 
65008950 
65009000 
65009100 
65009200 


65909210. 


65009220 
65009225 


65009400 
65009450 
65909500 
65009600 
65009700 
65009800 
65009900 
65010000 
63010100 
65010200 
65040300 


65919400. 


65010500 
65010600 


65010700 


65010800 
650140900 
65011000 
65041100 
65011200 


65011300. 


65011400 
65911500 
65011600 
65041700 


| 
| 
| 
| 
| 


<—- 


om 
mo 


a. eo ¢ 6 


EXITs 65011800 
ENO OF BATCHITS 65911900 


BATCHIT CLCWsA Cw) )3 % 66 = BATCH 90347000 
"SBATCH "“s 3"3001420000000102"5» k 66 90403440 
THIS PATCH ADDS A NEW VERB "BATCH", THE BATCH VERB WILL TAKE A 
CARD@IMAGE FILE aND CREATE A PSEUDOSDECK, FILES DESIGNATED AS 
"SMALL" CSEE SYNTAX BELOW) WILL SE ZIPPED IMMEDIATELYs WHILE MEDIUM 
AND LARGE ARE PLACED ON DISK FOR SUBSEQUENT ZIPPING, 


SYNTAX, 

BATCH CFILE*NAME **OR** FILENAME / FILE@NAME **QRe8 
FILE*NAME LIBRARY FILE*NAME] CSMALL *#OR** MEDIUM **ORe6 LARGE J 
CBLANK] TO FILE*NAME*®2 CSEND GLENRIDGE]. 

NOTES$ 

IF FILE*NAME@1 Is NOT SUPPLIED» THE WORK FILE WILL BE USED. 

DEFAULT SIZE IS LARGE, 

BLANK WILL BLANK OUT THE SEQUENCE NUMBER ON DATA CARDS OF THE FILe 
BEING ZIPPED (DEFAULT = BLANKESFALSE)3 0 

FILE*NAME=2 MUST NOT EXIST ON DISK CFILE IS CREATED IN THE FORM 
<CHARe 1 OF USERCODE><FILE=NAME"2> / PSEUDOX WHERE X IS SoMe0R |, 
(FOR SMALL MEDIUM AND LARGE RESPECTIVELY)). 

DEFAULT SENO IS "NO SEND” (IE« KEEP IN COMPUTING CENTRE). 

DEFAULT SEND IS DECEw, , 

CANDE FIRES UP BATCH/CANDE TO DO THE BATCHING FUNCTIONes 

*WWARNING** = PATCH WILL REQUIRE DIFFERENT SEQUENCE NUMBERS IF 

PATCH # 403 IS NOT USED, 


LABEL OQOO0000000L INE 00176349CC EX O/RSCOMMONSISFILE SSCANDE/PATCHESJENDe 
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